﻿Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Data
Imports System.Collections
Imports System.Windows.Forms
Imports DataObject
Imports DataObject.hDBase

Public Class BusNguoiDung

    Private NguoiDungDAO As New SqlServerNguoiDung
    Private oTable As New DataTable

    Public Function KiemTraNguoiDung(ByVal sStringConnection As String, ByVal oNguoiDung As NguoiDung) As Boolean
        Try
            If NguoiDungDAO.CheckDangNhap(sStringConnection, oNguoiDung) = True Then
                Return True
            Else
                Return False
            End If
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "Thông báo lỗi", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return False
        End Try
    End Function


End Class
